object DataModuleX: TDataModuleX
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 491
  Top = 250
  Height = 359
  Width = 511
  object ADOConn: TADOConnection
    CommandTimeout = 6000
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User' +
      ' ID=sa;Initial Catalog=CRWEB_TESTE;Data Source=192.168.1.161'
    ConnectionTimeout = 6000
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 56
    Top = 40
  end
  object ADOQryUsuario: TADOQuery
    Connection = ADOConn
    Parameters = <
      item
        Name = 'WUSUARIO'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select '
      
        ' case  when (( PATINDEX ('#39'% %'#39',usu.usu_nome)>0) and (PATINDEX('#39'%' +
        ' %'#39',SUBSTRING (usu.usu_nome,PATINDEX ('#39'% %'#39',usu.usu_nome)+ 1,len' +
        '(usu.usu_nome)))> 0)) then'
      
        '   SUBSTRING (usu.usu_nome, 1,len(usu.usu_nome)-(len(usu.usu_nom' +
        'e)- PATINDEX ( '#39'% %'#39' , usu.usu_nome ))) + '
      
        '   SUBSTRING (SUBSTRING (usu.usu_nome,PATINDEX ('#39'% %'#39',usu.usu_no' +
        'me)+ 1,len(usu.usu_nome)),1,PATINDEX('#39'% %'#39',SUBSTRING (usu.usu_no' +
        'me,PATINDEX ('#39'% %'#39',usu.usu_nome)+ 1,len(usu.usu_nome))))'
      ' else usu.usu_nome '
      ' end nome_usuario,'
      ' usu.*,gru.gru_apelido,gru.gru_cidade, GER.GER_DESC'
      'from usuario usu,grupo_cr gru, GERAL GER'
      'where'
      'usu_login = :WUSUARIO and'
      'usu.gru_id = gru.gru_id AND'
      'GER.GER_ID = GRU.GER_ID_UF')
    Left = 136
    Top = 40
  end
end
